﻿Imports DAO
Imports DTO
Public Class LoaiTietKiemBUS
    Public Shared Function LayLoaiTietKiem() As List(Of LoaiTietKiemDTO)
        Return LoaiTietKiemDAO.LayLoaiSoTietKiem()
    End Function

    Public Function LayMaLoaiTietKiemMax() As Integer
        Dim ltkDAO As New LoaiTietKiemDAO()
        Dim maloai As Integer
        maloai = ltkDAO.LayMaLoaiTietKiemMax()
        Return maloai
    End Function
    Public Function ThemLoaiTietKiem(ByVal ltkDTO As LoaiTietKiemDTO) As Integer
        Dim ltkDao As New LoaiTietKiemDAO()
        Return ltkDao.ThemLoaiTietKiem(ltkDTO)
    End Function
End Class
